home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 2 / Tech Arsenal 2 (Arsenal Computer).iso / clipper / s93bsp.exe / NTX_S87.PRG < prev    next >
Encoding:
Text File  |  1993-09-24  |  1.6 KB  |  82 lines
  1. *       B O D I N D E X
  2. *       Indexing etc for Bodywork
  3.  
  4. if .not. file("QBINFO.NTX")
  5.     use QBINFO
  6.     index on upper(QBINFKEY) to QBINFO
  7. endif
  8. set procedure to QBPROCS
  9. set procedure to QBIPROC
  10. do QBINIT
  11. set exact off
  12. set deleted off
  13.  
  14. do QBLAYOUT with "Initialisation"
  15. do QBBOX with 40
  16. QBMSGLIN = 22
  17.  
  18. do QBMESS with "Invoices",COLFLASH,0
  19. use INVOICE
  20. index on str(INVNO,5) to INVNUM
  21. index on dtos(DATEOUT)+CUSTTYPE to INVDATE
  22. index on CUSTTYPE+dtos(DATEOUT) to INVCUST
  23. index on upper(OWNNAME) to INVNAME
  24.  
  25. do QBMESS with "Customer Types",COLFLASH,0
  26. use CUSTTYPE
  27. index on CUSTTYPE to CUSTTYPE
  28.  
  29. do QBMESS with "Parts",COLFLASH,0
  30. use parts
  31. index on str(INVNO,5)+str(PLINENO,2)+PARTSPEC to PARTINV
  32. use PARTLINE
  33. zap
  34.  
  35. do QBMESS with "System Information",COLFLASH,0
  36. use qbinfo
  37. index on qbinfkey to qbinfo
  38. use
  39. use qbinfo index QBINFO
  40. seek "LASTINV"
  41. if eof()
  42.     MINVNO = 1
  43.     append blank
  44.     replace QBINFKEY with "LASTINV"
  45. else
  46.    MINVNO = val(QBTEXT)
  47. endif
  48. do QBCLMESS
  49. @ 22, 20 say "Input initial Invoice No:" get MINVNO picture "99999"
  50. read
  51. if updated()
  52.     replace QBTEXT with str(MINVNO,5)
  53. endif
  54.  
  55. do QBCLMESS
  56. seek "HEADING"
  57. if eof()
  58.     append blank
  59.     QBTITLE = space(30)
  60. else
  61.     QBTITLE = trim(QBTEXT)
  62. endif
  63. @ 22, 10 say "Input System Title:" get QBTITLE
  64. read
  65. replace QBINFKEY with "HEADING1", QBTEXT with QBTITLE
  66. do QBCLMESS
  67.  
  68. if QBYESNO("Is this a Colour monitor?")="Y"
  69.     QBRESP = "C"
  70. else
  71.     QBRESP = "M"
  72. endif
  73. seek "COLOUR"
  74. replace QBTEXT with QBRESP
  75. use
  76. if QBYESNO("Do you want to enter printer setup codes? (Y/N)")="Y"
  77.     do QBPSETUP
  78. endif
  79. CLEAR
  80. CLEAR ALL
  81.  
  82.